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-- Version. Mesa Edited by Johnsson on April 21, 1978 9:44 AM 

DIRECTORY 

AUoDefs: FROM "altodefs", 
AltoFileOefs: FROM "altof il edef s" , 
BcdDefs: FROM "bcddefs", 
DirectoryDef s: FROM "directorydef s" , 
ImageDefs: FROM "imagedefs", 
InlineDefs; FROM "in! inedef s" , 
lODefs: FROM "iodefs", 
SegmentDefs: FROM "segmentdef s" , 
StreamDefs: FROM "streamdef s" , 
StringDefs: FROM "StringDef s" , 
SystemDefs: FROM "SystemDef s" , 
TimeDefs: FROM '•timedefs"; 

DEFINITIONS FROM lODefs, StreamDefs. StringDefs; 

Version: PROGRAM 

IMPORTS DirectoryDefs. lODefs, SegmentDefs, StreamDefs, StringDefs, SystemDefs, TimeDefs 

SHARES ImageDefs « 

BEGIN 

FP: TYPE - AUoFileDefs.FP; 

BcdBase: TYPE = POINTER TO BcdDefs. BCD; 

UnpackedTime: TYPE = TimeDefs .UnpackedTime; 

-■- convert characters to upper case 

CharMask: PROCEDURE[CHARACTER. CARDINAL] RETURNS [CARDINAL] = 

L00PH0LE[In1 ineDef s . BITAND] ; 
upcase: CARDINAL = 137B; 

BinaryVersion: VersionProc » 
BEGIN OPEN SegmentDefs; 
bed: BcdBase; 
seg: FileSegmentHandle <r 

NewFileSegment[InsertFile[0info.fp,Read], 1, 1, Read]; 
Swapln[seg]; bed ^ FileSegmentAddress[seg] ; 
SELECT bcd.versionident FROM 
BcdDefs. VersionID »> 
BEGIN 

PrintVersion[bcd. version]; 
WriteChar[CR]; 

IF type=bcd AND verbose THEN 
BEGIN 

IF bcd.nPages > 1 THEN 
BEGIN 

Un1ock[seg]; 

MoveFi1eSegment[seg, l.bcd.nPages]; 
Swapln[seg] ; 

bed ♦- Fil eSegmentAddress[seg]; 
END; 
PrintFi1eVersions[bcd] ; 
END; 
END; 
ImageDefs .VersionID «> 
BEGIN 

PrintVersion[bcd .version]; 
WriteChar[CR]; 
END; 
ENDCASE «> 
BEGIN 

WriteString[" unknown version ID "L]; 
WriteDecimal [bed. version ident]; 
WriteChar[CR]; 
END; 
Un1ock[seg] ; 
De1eteFileSegment[seg] ; 
RETURN 
END; 

BufferObject: TYPE = RECORD [ 

p: CARDINAL, 

s: STRING]; 
Buffer: TYPE = POINTER TO BufferObject; 
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SourceDate: VersionProc ■ 
BEGIN OPEN AUoDefs; 
LI: TYPE » LONG INTEGER; 
date, tdate: TimeDef s .PackedTime; 
b: BufferObject; 
stream: StreamHandle; 
found: BOOLEAN ^ FALSE; 
stream ^ CreateByteStream[ 

SegmentDefs. InsertFne[@info.fp,Read],Read]; 
b.s <- SystemDef s .AnocatePages[l] ; 
b.st 4- [ 

1ength:0, maxlength: (PageSize-SIZE[StringBody])*BytesPerWord, text:]; 
b.s. length ^ ReadBlock[ 

stream,0b.s.text,b.s.max1ength/BytesPerWord]*BytesPerWord; 
b.p <- 0; 

[found, date] <- GetDate[0b 1 TimeDefs . Inval idTime »> CONTINUE]; 
IF found THEN 

BEGIN 

DO 

[found, tdate] ^ GetDate[@b I TimeDef s. Inval idTime «> EXIT]; 

IF -found THEN EXIT; 

IF LOOPHOLE[tdate,LI] > LOOPHOLE[date,LI] THEN date <- tdate; 

ENDLOOP; 

WriteChar[' ]; PrintDate[TimeDef s .UnpackDT[date]]; 

END 
ELSE WriteString[" ?"L]; 
WriteChar[CR]; 
SystemDefs. FreePages[b.s]; 
stream. destroy[stream]; 
RETURN 
END; 

GetDate: PROCEDURE [b: Buffer] RETURNS [BOOLEAN,TimeDefs .PackedTime] = 
BEGIN 

token: STRING <- [20]; 
found: BOOLEAN ^ FALSE; 
index: CARDINAL[0 . .12) ; 

u: UnpackedTime <- [0 , ,0 ,0, ,0,0,0,FALSE]; 
Nextltem[b , token] ; 
WHILE token. length /if DO 

[found, index] <- IsMonth[token]; 
IF found THEN 
BEGIN 

Nextltem[b, token]; 
IF IsNumber[token] THEN 
BEGIN 

u. month <- index; 
u.day *- StringToDecimal[token]; 
END 
ELSE LOOP; 
END 
ELSE IF IsNumber[token] THEN -- possible Day-Mo-Yr form 
BEGIN 

u.day <- StringToDecimal [token]; 
Nextltem[b , token] ; 
[found , index] ^ IsMonth[token] ; 
IF found THEN u. month ♦- index ELSE LOOP; 
END; 
IF found THEN 
BEGIN 

Nextltem[b, token]; 
IF IsNumber[token] THEN 
BEGIN 

u.year <- StringToDecimal[token] ; 
IF u.year < 100 THEN u.year <- u.year + 1900; 
END 
ELSE LOOP; 
Nextltem[b , token] ; 
IF IsNumber[token] THEN 
BEGIN 

u.hour <- StringToDecimal[token]; 
NexLItem[b , token]; 
IF IsNumber[token] THEN 

u.mirujte <- StringToDecimal [token] ; 
NextIt0m[b, token] ; 



Version. mesa 2-Sep-78 14:40:55 Page 



IF EquivalentString[token,"PM"L] AND u.hour < 12 THEN 

u.hour ^ u.hour+12; 
END; 
RETURN[TRUE,TimeDefs.PackDT[u,TRUE]] 
END; 
Nextltem[b, token]; 
ENDLOOP; 
RETURN[FALSE,TimeDefs.DefauUTinie] 
END; 

IsMonth: PROCEDURE [candidate: STRING] RETURNS [BOOLEAN, CARDINAL] ■ 
BEGIN 
Months: ARRAY [0..12) OF STRING « [ 

"JANUARY"L,"FEBRUARY"L, "MARCH" L/'APRIL"L."MAY"L," JUNE" L."JULY"L, 
"AUGUST"L,"SEPTEMBER"L."OCTOBER"L,"NOVEMBER"L,"DECEMBER"L]; 
i.j: CARDINAL; 
test: STRING; 

IF candidate. length >« 3 THEN 
FOR i IN [0. .12) DO 
test ♦- Months[i]; 

IF candidate. length <« test. length THEN 
FOR j IN [0. .candidate. length) 00 

IF CharMask[candidate[j],upcase] # LOOPHOLE[test[j] .CARDINAL] THEN EXIT; 
REPEAT FINISHED => RETURN[TRUE J ] ; 
ENDLOOP; 
ENDLOOP; 
RETURN[FALSE,0] 
END; 

IsNumber: PROCEDURE [s: STRING] RETURNS [BOOLEAN] =• 
BEGIN 

i: CARDINAL; 
FOR i IN [0. .s. length) DO 

IF s[i] -IN ['0..'9] THEN RETURN[FALSE] ; 

ENDLOOP; 
RETURN[TRUE] 
END; 

Nextltem: PROCEDURE [b: Buffer, token: STRING] « 
BEGIN 

c: CHARACTER; 
token. length ♦- 0; 
WHILE b.p < b.s. length DO 
c ♦- b.s[b.p]; 
b.p <- b.p+1; 
SELECT c FROM 

IN ['a..'z]. IN ['A..'Z]. IN ['0..'9] «> 

IF token. length < token .maxlength THEN AppendChar[token.c]; 
ENDCASE «> IF token. length # THEN EXIT; 
ENDLOOP; 
RETURN 
END; 

PrintFileVersions: PROCEDURE [bed: BcdBase] « 
BEGIN OPEN BcdDefs; 
line: SIRING <- [40]; 
filename: SubStringDescriptor; 
fti: FTIndex; 

ftb: CARDINAL » L00PHOLE[bcd+bcd . f tOf f set] ; 
stb: NameString » LOOPHOLE[bcd+bcd. ssOff set] ; 
FOR fti ^ FIRST[rTIndex], f ti+SIZE[FTRecord] 
UNTIL fti « bcd.ftLimit DO 

OPEN f: ftb + fti; 

filename *- SubStringDescriptor[ 

@stb. string, f.name, stb . size[f .name]] ; 

line. length *- 0; WriteChar[' ]; 

PrintVers ion[f . version] ; WriteChar[' ]; 

AppendSubString[l ine,6f ilename] ; 

WriteLine[l ine]; 

ENDLOOP; 
RETURN 
END; 

PrintVers ion: PROCEDURE [stamp: BcdDefs .VersionStamp] ■ 
BEGIN 
WriteChar[IF stamp. zapped THEN '* ELSE ' ]; 
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PrintDate[TimeDefs.UnpackDT[ stamp. time]]; 

WriteChar[' ]; 

WriteOctal[ stamp. net]; 

WriteChar['i^]; 

WriteOctal [stamp. host]; 

WriteChar['j§']; 

END; 

PrintDate: PROCEDURE [dt: UnpackedTime] - 
BEGIN 

tmp: STRING ^ [40]; 
TimeDefs.AppendDayTime[tmp,dt]; 
WriteString[tmp]; 
END; 



-- command line stuff 

NextFile: PROCEDURE[token : STRING] RETURNS [BOOLEAN]; 

ReadFromCmdFile: PROCEDURE[token: STRING] RETURNS [BOOLEAN] ■ 
BEGIN 

RETURN[ReadCmdStream[cmdstream, token]] 
END; 

ReadFromKeyboard: PROCEDURE[token: STRING] RETURNS [BOOLEAN] 
BEGIN 

WriteString["Fi1e: "L]; 
Read ID[ token]; WriteChar[CR] ; 
RETURN[token.1engthj§fO]; 
END; 

ReadCmdStream: PROCEDURE [ 

stream: StreamHandle, token: STRING] 
RETURNS [BOOLEAN] » 
BEGIN 

c: CHARACTER; 
token, length ♦- 0; 
WHILE ~s tream.endof[stream] DO 
c <- stream. get[stream]; 
SELECT c FROM 

SP => IF token. length # THEN EXIT; 
CR => EXIT; 

ENDCASE => AppendChar[token,c]; 
ENDLOOP; 
RETURN[token.length#0]; 
END; 

cmdstream: StreamHandle; 

SetCommandlnput: PROCEDURE « 
BEGIN 

cmdstream *- NewByteStream["Com.Cm"L, Read]; 
[] ^ ReadCmdStream[cmdstream, name]; 
StripSwitches[name] ; -- mesa. image 
[] <- ReadCmdStream[cmdstream, name]; 
IF interactive ♦- cmdstream. endof [cmdstream] THEN 

BEGIN 

cmdstream. destroy [cmdstream]; 

NextFile <- ReadFromKeyboard; 

END 
ELSE NextFile ^ ReadFromCmdFile; 
RETURN 
END; 

StripSwitches: PROCEDURE [token: STRING] « 
BEGIN 

i. j: CARDINAL; 
option: BOOLEAN ^ TRUE; 
FOR i IN [0. .token. length) DO 
IF token[i] « V THEN 
BEGIN 

FOR j IN (i. .token. length) DO 
SELECT tokon[j] FROM 

'~, '- «> option ^ -option; 

'p, 'P -> BEGIN pause ♦- option; option <- TRUE END; 
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'v, 'V »> BEGIN verbose ^ option; option ^ TRUE END; 
ENDCASE; 
ENDLOOP; 
token, length <- i ; 
END; 
ENDLOOP: 
RETURN 
END; 

StripExtension: PROCEDURE [name, ext: STRING] - 
BEGIN 

i, j: CARDINAL; 

IF ext ^ NIL THEN ext. length ^ 0; 
i ♦- (j ♦- name. length) - 1; 
IF name[i]»' . THEN i <- (J <- i) - 1; 
FOR i ^ i, i-1 UNTIL name[i] ■ ' . DO 

IF name[i] » ' I THEN j ♦- i; 

IF i - THEN RETURN; 

ENDLOOP; 
name. length ^ i ; 
IF ext ff NIL THEN 
UNTIL (i<-i+l)»j DO 

AppendChar[ext,name[i]]; 

ENDLOOP; 
RETURN 
END; 

-- presearching the directory 

HashVal: TYPE = [0..1000); 

Hash: PROCEDURE [s: STRING] RETURNS [HashVal] « 
BEGIN 

RETURN[{CharMask[s[0],upcase]*s.length+CharMask[s[s.length/2],upcase]) MOD (LAST[HashVal ]+!)]; 
END; 

Stringltem: TYPE » RECORD [ 
link: POINTER TO Stringltem, 
hash: HashVal, 
s: STRING]; 

StringHead: POINTER TO Stringltem <- NIL; 

CopyString: PROCEDURE [s: STRING] RETURNS [STRING] » 
BEGIN 

p: POINTER TO Stringltem; 
hash: HashVal = Hash[s]; 
FOR p <- StringHead. p. link UNTIL p « NIL DO 

IF p. hash = hash AND StringDef s .Equi valentString[s,p . s] THEN RETURN[p.s]; 

ENDLOOP; 
p ^ SystemDefs.AnocateHeapNode[SIZE[Item]]; 
p. 1 ink <- Str ingHead; 
StringHead «- p; 
p. hash <- hash; 

p.s ♦- SystemDefs .AnocateHeapString[s. length] ; 
StringDef s .AppendString[p.s,s]; 
RETURN[p.s] 
END; 

Item: TYPE « RECORD [ 
link: POINTER TO Item, 
hash: WORD, 
name: STRING, 
fp: AltoFileDefs.FP]; 

ItemHead: ARRAY FileType OF POINTER TO Item; 

Newltem: PROCEDURE [s: STRING] RETURNS [p: POINTER TO Item] ■ 
BEGIN 

p <- SystemDefs .Al locateHeapNode[SIZE[Item]]; 
p. hash <- Hash[s]; 
p. name <- CopyString[s]; 
RETURN 
END; 

Lookupltem: PROCEDURE [s: STRING, t: FileType] RETURNS [p: POINTER TO Item] - 
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BEGIN 

hash: HashVal - Hash[s3; 

FOR p 4- ltemHead[t], p. link UNTIL p - NIL DO 

IF p. hash - hash AND StringDef s .Equi valentString[s,p.name] THEN EXIT; 

ENDLOOP; 
RETURN 
END; 

Enterltem: PROCEDURE [s: STRING, t: FileType] RETURNS [p: POINTER TO Item] - 
BEGIN 
IF (p^LookupItemCs.t]) » NIL THEN 

BEGIN 

p ^ Newltem[s]; 

p. link <- ItemHead[t]; 

ItemHead[t] ^ p; 

END; 
RETURN 
END; 

GetFiles: PROCEDURE [fp: POINTER TO FP. fn: STRING] RETURNS [BOOLEAN] ■ 
BEGIN 

p: POINTER TO Item; 
ext: STRING <- [40]; 
StripExtension[fn,ext]; 
FOR i IN FileType DO 

IF EquivalentString[ext ,extensions[i]] THEN 

BEGIN 

p <r Enterltem[fn, i]; 

p.fp <r fpt; 

EXIT; 

END; 
ENDLOOP; 
RETURN [FALSE] 
END; 

-- main program 

FileType: TYPE « {source, config, bed, symbols, code, image}; 

extensions: ARRAY FileType OF STRING « ["mesa", "config", "bed", "symbols", "code", "image"]; 

VersionProc: TYPE = PROCEDURE [info: POINTER TO Item, type: FileType]; 

dateproc: ARRAY FileType OF VersionProc - [SourceDate, SourceDate, BinaryVersion , BinaryVersion, Bina 
**ryVersion, BinaryVersion]; 

i: FileType; 

name: STRING ^ [100]; 

interactive: BOOLEAN; 
pause, pauseDflt: BOOLEAN «- FALSE; 
verbose, verboseDflt: BOOLEAN <- FALSE; 
item: POINTER TO Item; 

SetCommandInput[] ; 

FOR i IN FileType DO ItemHead[i] <- NIL ENDLOOP; 
DirectoryDef s . Enumer a teDi rectory [GetFiles]; 
pauseDflt ♦- pause; 
verboseDflt <- verbose; 
WriteChar[CR]; 
WHILE NextFile[name] DO 
pause <- pauseDflt; 
verbose ♦- verboseDflt; 
StripSwi tches[name]; 
IF name. length » THEN 
BEGIN 

pauseDflt <- pause; 
verboseDflt ♦- verbose; 
IF interactive THEN WriteChar[CR]; 
END 
ELSE 
BEGIN 

SlripCxtension[name, NIL]; 
IF -interactive THEN Wr iteLine[name] ; 
FOR i IN FileType DO 
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IF (item4-LookupItem[nam8,i]) 1^ NIL THEN 
BEGIN 

WriteChar[' ]; 
WriteString[extensions[i]]; 
WriteChar[' :]; 
dateproc[i][item, i] ; 
END; 
ENDLOOP; 
WriteChar[CR]: 

IF pause THEN [] <- ReadChar[]; 
END; 
ENDLOOP; 
ImageDefs.StopMesa[]; 

END. 



